﻿Public Class frmMantenimientoBasicoLista

    Private Sub frmMantenimientoBasicoLista_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Refrescar()
    End Sub
    Private Sub bntRefrescar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bntRefrescar.Click
        Refrescar()
    End Sub

    Sub Refrescar()
        Dim mantenimientoBS As Ejemplo.BS.MantenimientoBasico
        mantenimientoBS = New Ejemplo.BS.MantenimientoBasico
        Me.dgLista.DataSource = mantenimientoBS.Listar()
    End Sub

    Private Sub bntAgregar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bntAgregar.Click
        Dim mantenimiento As FrmMantenimientoBasicoInsertar
        mantenimiento = New FrmMantenimientoBasicoInsertar
        mantenimiento.ShowDialog()
        Refrescar()
    End Sub


    Private Sub bntEditar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bntEditar.Click

        Dim id As Integer

        If dgLista.SelectedRows.Count = 1 Then

            Dim dgvRow As DataGridViewRow

            For Each dgvRow In dgLista.SelectedRows

                id = dgvRow.Cells(0).Value

            Next
            Dim mantenimiento As FrmMantenimientoBasicoEditar
            mantenimiento = New FrmMantenimientoBasicoEditar
            mantenimiento.Id = id
            mantenimiento.ShowDialog()
            Refrescar()
        Else

            MessageBox.Show("Debes seleccionar una fila")
        End If


    End Sub

    Private Sub bntEliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bntEliminar.Click
        Dim id As Integer

        If dgLista.SelectedRows.Count = 1 Then

            Dim dgvRow As DataGridViewRow

            For Each dgvRow In dgLista.SelectedRows

                id = dgvRow.Cells(0).Value

            Next
            Dim mantenimiento As FrmMantenimientoBasicoEliminar
            mantenimiento = New FrmMantenimientoBasicoEliminar
            mantenimiento.Id = id
            mantenimiento.ShowDialog()
            Refrescar()
        Else

            MessageBox.Show("Debes seleccionar una fila")
        End If
    End Sub

    Private Sub bntBuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bntBuscar.Click
        Dim frmFiltrar As New frmMantenimientoBasicoFiltrar
        Dim mantenimientoBasicoBS As New Ejemplo.BS.MantenimientoBasico
        Dim mantenimientoBasicoBE As New Ejemplo.BE.MantenimientoBasico


        If frmFiltrar.ShowDialog() = Windows.Forms.DialogResult.OK Then


            mantenimientoBasicoBE.Nombre = frmFiltrar.Nombre
            mantenimientoBasicoBE.Descripcion = frmFiltrar.Descripcion

            Me.dgLista.DataSource = Nothing
            Me.dgLista.DataSource = mantenimientoBasicoBS.Filtrar(mantenimientoBasicoBE)

        End If

    End Sub
End Class